home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…ness) 1997 September #242 / Software of the Month Club - Business Shareware (September 1997).iso / dos / biz / pettycsh / pack1.prg / APPS / PCASH / SW / PROC9.PRO < prev    next >
Unknown  |  1996-10-20  |  1.0 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert MSX Protracker Module (music/msxProtrackerModule) ext Unsupported
1% dexvert CODESYS Project (other/codesysProject) ext Unsupported
1% dexvert Show Partner Mastered Show (other/showPartnerMasteredShow) ext Unsupported
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 28 00 64 65 63 6c 61 72 | 65 20 76 61 72 69 61 62 |(.declar|e variab|
|00000010| 6c 65 73 0d 0a 20 20 20 | 78 20 61 73 20 6e 75 6d |les..   |x as num|
|00000020| 62 65 72 0d 0a 20 20 20 | 79 20 61 73 20 6e 75 6d |ber..   |y as num|
|00000030| 62 65 72 0d 0a 20 20 20 | 63 61 73 68 20 61 73 20 |ber..   |cash as |
|00000040| 6e 75 6d 62 65 72 0d 0a | 20 20 20 62 61 6e 6b 20 |number..|   bank |
|00000050| 61 73 20 6e 75 6d 62 65 | 72 0d 0a 65 6e 64 0d 0a |as numbe|r..end..|
|00000060| 66 6f 72 20 4f 70 65 6e | 69 6e 67 20 42 61 6c 61 |for Open|ing Bala|
|00000070| 6e 63 65 73 0d 0a 20 20 | 20 63 61 73 68 20 3d 20 |nces..  | cash = |
|00000080| 4f 70 65 6e 69 6e 67 20 | 42 61 6c 61 6e 63 65 73 |Opening |Balances|
|00000090| 2e 43 61 73 68 0d 0a 20 | 20 20 62 61 6e 6b 20 3d |.Cash.. |  bank =|
|000000a0| 20 4f 70 65 6e 69 6e 67 | 20 42 61 6c 61 6e 63 65 | Opening| Balance|
|000000b0| 73 2e 42 61 6e 6b 0d 0a | 20 20 20 65 78 69 74 20 |s.Bank..|   exit |
|000000c0| 66 6f 72 0d 0a 6e 65 78 | 74 0d 0a 66 6f 72 20 52 |for..nex|t..for R|
|000000d0| 45 43 4f 52 44 53 0d 0a | 20 20 20 59 20 3d 20 52 |ECORDS..|   Y = R|
|000000e0| 45 43 4f 52 44 53 2e 54 | 6f 74 61 6c 20 72 65 63 |ECORDS.T|otal rec|
|000000f0| 6f 72 64 73 0d 0a 20 20 | 20 65 78 69 74 20 66 6f |ords..  | exit fo|
|00000100| 72 0d 0a 6e 65 78 74 0d | 0a 66 6f 72 20 52 65 63 |r..next.|.for Rec|
|00000110| 6f 72 64 73 0d 0a 20 20 | 20 78 20 3d 20 78 20 2b |ords..  | x = x +|
|00000120| 20 31 0d 0a 20 20 20 64 | 69 73 70 6c 61 79 20 73 | 1..   d|isplay s|
|00000130| 74 61 74 75 73 20 22 52 | 65 63 61 6c 63 75 6c 61 |tatus "R|ecalcula|
|00000140| 74 69 6e 67 20 2d 20 45 | 6e 74 72 79 22 20 2b 20 |ting - E|ntry" + |
|00000150| 78 20 2b 22 6f 66 22 20 | 2b 20 59 0d 0a 20 20 20 |x +"of" |+ Y..   |
|00000160| 69 66 20 72 65 63 6f 72 | 64 73 2e 74 79 70 65 20 |if recor|ds.type |
|00000170| 3d 20 22 63 61 73 68 20 | 70 61 79 6d 65 6e 74 22 |= "cash |payment"|
|00000180| 20 74 68 65 6e 20 63 61 | 73 68 20 3d 20 63 61 73 | then ca|sh = cas|
|00000190| 68 20 2d 20 72 65 63 6f | 72 64 73 2e 61 6d 6f 75 |h - reco|rds.amou|
|000001a0| 6e 74 0d 0a 20 20 20 69 | 66 20 72 65 63 6f 72 64 |nt..   i|f record|
|000001b0| 73 2e 74 79 70 65 20 3d | 20 22 63 68 65 71 75 65 |s.type =| "cheque|
|000001c0| 20 70 61 79 6d 65 6e 74 | 22 20 74 68 65 6e 20 62 | payment|" then b|
|000001d0| 61 6e 6b 20 3d 20 62 61 | 6e 6b 20 2d 20 72 65 63 |ank = ba|nk - rec|
|000001e0| 6f 72 64 73 2e 61 6d 6f | 75 6e 74 0d 0a 20 20 20 |ords.amo|unt..   |
|000001f0| 69 66 20 72 65 63 6f 72 | 64 73 2e 74 79 70 65 20 |if recor|ds.type |
|00000200| 3d 20 22 42 61 6e 6b 20 | 77 69 74 68 64 72 61 77 |= "Bank |withdraw|
|00000210| 61 6c 22 20 74 68 65 6e | 0d 0a 20 20 20 20 20 20 |al" then|..      |
|00000220| 63 61 73 68 20 3d 20 63 | 61 73 68 20 2b 20 72 65 |cash = c|ash + re|
|00000230| 63 6f 72 64 73 2e 61 6d | 6f 75 6e 74 0d 0a 20 20 |cords.am|ount..  |
|00000240| 20 20 20 20 62 61 6e 6b | 20 3d 20 62 61 6e 6b 20 |    bank| = bank |
|00000250| 2d 20 72 65 63 6f 72 64 | 73 2e 61 6d 6f 75 6e 74 |- record|s.amount|
|00000260| 0d 0a 20 20 20 65 6e 64 | 20 69 66 0d 0a 20 20 20 |..   end| if..   |
|00000270| 69 66 20 72 65 63 6f 72 | 64 73 2e 74 79 70 65 20 |if recor|ds.type |
|00000280| 3d 20 22 43 61 73 68 20 | 74 6f 20 62 61 6e 6b 22 |= "Cash |to bank"|
|00000290| 20 74 68 65 6e 0d 0a 20 | 20 20 20 20 20 63 61 73 | then.. |     cas|
|000002a0| 68 20 3d 20 63 61 73 68 | 20 2d 20 72 65 63 6f 72 |h = cash| - recor|
|000002b0| 64 73 2e 61 6d 6f 75 6e | 74 0d 0a 20 20 20 20 20 |ds.amoun|t..     |
|000002c0| 20 62 61 6e 6b 20 3d 20 | 62 61 6e 6b 20 2b 20 72 | bank = |bank + r|
|000002d0| 65 63 6f 72 64 73 2e 61 | 6d 6f 75 6e 74 0d 0a 20 |ecords.a|mount.. |
|000002e0| 20 20 65 6e 64 20 69 66 | 0d 0a 20 20 20 69 66 20 |  end if|..   if |
|000002f0| 72 65 63 6f 72 64 73 2e | 74 79 70 65 20 3d 20 22 |records.|type = "|
|00000300| 63 61 73 68 20 72 65 63 | 69 65 76 65 64 22 20 74 |cash rec|ieved" t|
|00000310| 68 65 6e 20 63 61 73 68 | 20 3d 20 63 61 73 68 20 |hen cash| = cash |
|00000320| 2b 20 72 65 63 6f 72 64 | 73 2e 61 6d 6f 75 6e 74 |+ record|s.amount|
|00000330| 0d 0a 6e 65 78 74 0d 0a | 66 6f 72 20 4f 70 65 6e |..next..|for Open|
|00000340| 69 6e 67 20 42 61 6c 61 | 6e 63 65 73 0d 0a 20 20 |ing Bala|nces..  |
|00000350| 20 6f 70 65 6e 69 6e 67 | 20 62 61 6c 61 6e 63 65 | opening| balance|
|00000360| 73 2e 43 61 73 68 20 3d | 20 63 61 73 68 0d 0a 20 |s.Cash =| cash.. |
|00000370| 20 20 6f 70 65 6e 69 6e | 67 20 62 61 6c 61 6e 63 |  openin|g balanc|
|00000380| 65 73 2e 62 61 6e 6b 20 | 3d 20 62 61 6e 6b 0d 0a |es.bank |= bank..|
|00000390| 20 20 20 75 70 64 61 74 | 65 20 72 65 63 6f 72 64 |   updat|e record|
|000003a0| 0d 0a 6e 65 78 74 0d 0a | 63 6c 65 61 72 20 72 65 |..next..|clear re|
|000003b0| 63 6f 72 64 73 20 66 72 | 6f 6d 20 52 65 63 6f 72 |cords fr|om Recor|
|000003c0| 64 73 0d 0a 66 6f 72 20 | 41 75 74 6f 0d 0a 20 20 |ds..for |Auto..  |
|000003d0| 20 61 75 74 6f 2e 72 65 | 63 20 3d 20 30 0d 0a 20 | auto.re|c = 0.. |
|000003e0| 20 20 75 70 64 61 74 65 | 20 72 65 63 6f 72 64 0d |  update| record.|
|000003f0| 0a 6e 65 78 74 0d 0a 04 | 00 52 65 73 65 74 43 46 |.next...|.ResetCF|
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20          |        |        |
+--------+-------------------------+-------------------------+--------+--------+